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Abstract 

EVALUE,  A  FORTRAN  program, 
was  developed  to  provide  a  frame¬ 
work  for  cash  flow  analysis  of  invest¬ 
ment  opportunities.  EVALUE  was 
designed  to  assist  researchers  in 
evaluating  investment  feasibility  of 
new  technology  or  new  manufactur¬ 
ing  processes.  This  report  serves  as 
user  documentation  for  the  EVALUE 
program.  EVALUE  is  briefly  described 
and  notes  on  preparation  of  a  data 
deck  are  provided.  Sample  program 
input,  sample  output,  and  a  complete 
listing  of  the  program  are  provided. 
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Foreword 

EVALUE  is  a  FORTRAN  computer  pro¬ 
gram  for  investment  cash  flow 
analysis.  It  can  be  used  as  an  aid  in 
evaluating  and  analyzing  potential  in¬ 
vestment  opportunities,  such  as  new 
manufacturing  facilities,  new  equip¬ 
ment,  or  facility  improvement. 

EVALUE  can  be  used  by  researchers 
in  economic  studies  of  new 
technology  or  new  manufacturing  pro¬ 
cesses. 

EVALUE  was  developed  on  the 
University  of  Wisconsin  UNIVAC  1110 
under  the  EXEC  8  operating  system, 
using  the  Madison  Academic  Com¬ 
puter  Center’s  version  of  the  FOR¬ 
TRAN  V  language.  To  reduce  pro¬ 
blems  of  portability  between  com¬ 
puter  systems,  features  common  to 
the  FORTRAN  IV  version  of  FORTRAN 
were  used. 

Introduction 

This  paper  explains  how  to  use 
EVALUE.  It  Is  strictly  a  users  guide 


and  is  not  intended  as  an  introduc¬ 
tion  to  financial  analysis.  A  user 
should  be  familiar  with  cash  flow" 
analysis  techniques.  Reference  litera¬ 
ture  on  the  subject  of  financial  invest¬ 
ment  analysis  is  cited  at  the  end  of 
this  paper  (1,  3,  5,  .  It  would  also  be 

helpful  for  the  user  to  have  some 
familiarity  with  computer  programs, 
although  this  paper  describes 
EVALUE  in  conventional  terms  which 
should  be  fairly  understandable  to 
novice  computer  users. 

EVALUE  provides  a  framework  for 
investment  cash  flow  analysis.  The 
term,  cash  flow,  refers  to  the  periodic 
amounts  or  “flow”  of  cash  (i.e., 
dollars)  required  as  costs,  revenues, 
or  depreciation,  in  an  economic  activi¬ 
ty.  For  example,  the  yearly  cost  of  a 
raw  material  such  as  timber,  for  a 
manufacturing  firm,  is  a  cash  flow. 
Estimates  of  future  cash  flows  are 
used  as  data  for  EVALUE.  The  user 
determines  an  appropriate  planning 
period  and  estimates  all  cash  flows  in 
the  analysis.  EVALUE  provides  the 
function  of  discounting  cash  flows 
and  calculating  investment  analysis 
criteria,  such  as  present  net  worth 


and  internal  rate  of  return.  Before 
EVALUE  can  be  used,  a  considerable 
effort  must  be  made  by  the  user  to 
become  familiar  with  the  particular  in¬ 
vestment  opportunity  being  analyzed 
and  to  identify  and  estimate  all 
associated  cash  flows.  The  analytical 
value  of  output  from  EVALUE  is 
limited  by  the  accuracy  and  reliability 
of  data  which  are  used  as  input.  Ob¬ 
viously,  all  cash  flows  must  be  iden¬ 
tified  and  estimated  carefully  and  ac¬ 
curately  in  order  for  the  analysis  to 
be  complete  and  not  misleading. 

Six  categories  of  cash  flows  are 
used  by  EVALUE,  including  gross 
revenues,  raw  material  costs,  other 
variable  costs,  fixed  costs,  invest¬ 
ments,  and  depreciation.  Within  prin¬ 
cipal  cash  flow  categories,  the  user  is 
free  to  specify  particular  cash  flow 
Items.  For  example,  a  user  may 
specify  up  to  20  raw  material  cash 
flow  Items  in  the  category  of  raw 


1  Member  ol  State  end  Private  Forestry  statt 
located  at  the  Forest  Products  Laboratory 
1  Maintained  at  Madison,  WIs  .  In  cooperation 
with  the  University  of  Wisconsin. 

’  Italicized  numbers  In  parentheses  refer  to 
literature  cited  at  end  of  this  report 


materials.  The  user  estimates  the 
amount,  in  dollars,  of  each  Item  in 
each  year  of  the  analysis.  In  addition 
to  annual  cash  flow  estimates, 
EVALUE  requires  that  the  user 
specify  initial  investment,  discount 
rate,  salvage  value,  Investment  Tax 
Credit,  tax  rate,  and  the  number  of 
years  which  are  to  be  considered  in 
the  analysis. 

EVALUE  produces  a  two-part 
printed  output.  The  first  part  is  a 
detailed  summary  of  the  annual  cash 
flows  which  were  ertered  as  data, 
along  with  computer  calculated  an¬ 
nual  Profit  Before  Taxes,  After  Tax 
Profit,  After  Tax  Earnings,  and  After 
Tax  Net  Cash  Flow  (fig.  1).  The  se¬ 
cond  part  of  the  output  illustrates  the 
discounting  of  net  cash  flows,  and 
provides  several  investment  analysis 
criteria  (fig.  2).  Present  Net  Worth, 
Payback  Period,  Internal  Rate  of 
Return,4  and  Present  Net  Worth  to 
Initial  Investment  Ratio  are  calculated 
for  the  investment  opportunity  being 
considered. 


EVALUE  Data 

The  data  requirements  are 
presented  here  in  order  of  occurrence 
in  an  EVALUE  data  deck.  Each  type 
of  data  card  is  discussed  and  instruc¬ 
tions  on  format  for  each  card  are  pro¬ 
vided.  A  sample  data  deck  is  also  pro¬ 
vided  (fig.  3).  The  sample  data  il¬ 
lustrated  in  the  sample  deck  will 
generate  the  sample  EVALUE  output 
shown  in  figures  1  and  2.  EVALUE 
allows  the  user  considerable  flexibili¬ 
ty  in  determining  the  size  and  content 
of  the  data  deck,  and  considerable 
latitude  in  determining  the  structure 
of  the  analysis.  Table  1  is  a  summary 
of  data  entry  requirements  which  are 
described  in  detail  in  the  following 
sections. 

Output  Title  (4  cards) 

The  first  four  data  cards  are  used 
to  specify  the  title  for  the  program 
output.  The  user  simply  chooses  an 
appropriate  title  and  enters  the  title 
on  four  data  cards.  The  title  may  be 
typographically  centered  for  neat¬ 
ness.  There  should  always  be  a  total 
of  four  title  cards  at  the  beginning  of 
the  data  deck.  If  less  than  four  cards 
are  needed,  some  of  the  cards  may 
be  left  blank,  but  the  blank  cards 
should  be  included  in  the  data  deck. 
Information  printed  on  the  title  cards 


will  be  centered  at  the  top  of  the  first 
page  of  program  output  (fig.  1). 

Planning  Period  (1  card) 

The  user  specifies  the  length,  in 
years,  of  the  planning  period  for  the 
analysis.  EVALUE  will  allow  planning 
periods  of  2  to  50  years.  A  10-year 
planning  period  has  been  specified  in 
the  sample  data  deck  (fig.  3).  The 
number  of  years  is  entered  on  a 
single  card  which  follows  the  output 
title  cards.  The  number  is  entered  in 
columns  7  and  8  and  may  be  any 
whole  number  from  2  to  50  (if  the 
number  of  years  is  less  than  10,  leave 
column  7  blank  and  enter  the  number 
in  column  8). 

Products  and  Gross 
Revenues  (3-220  cards) 

Revenues  are  generated  in 
manufacturing  from  the  sale  of  pro¬ 
ducts.  The  user  determines  which  pro¬ 
ducts  are  to  be  considered  in  the 
analysis.  EVALUE  permits  the  user  to 
specify  from  1  to  20  different  pro¬ 
ducts.  The  user  estimates  the  average 
price  and  annual  sales  volume  of 
each  product  for  each  year  in  the 
analysis  planning  period.  EVALUE 
multiplies  prices  times  volume  to 
determine  gross  revenue  cash  flow 
for  each  year. 

Product  data  cards  immediately 
follow  the  card  specifying  the  plan¬ 
ning  period.  The  name  of  the  first  pro¬ 
duct  is  entered  in  columns  1  to  16  of 
the  first  product  data  card.  Any 
alphanumeric  characters  may  be 
used.  In  the  sample  data  deck,  the 
first  product  is  FAS  LUMBER  (MBF) 
(fig.  3). 

On  the  next  product  data  card(s), 
the  average  unit  prices  for  the  first 
product  are  specified.  One  price 
estimate  is  made  for  each  year.  The 
number  of  estimates  entered  should 
be  exactly  the  same  as  the  number  of 
years  in  the  planning  period.  One 
estimate  is  entered  in  every  eight 
columns,  beginning  with  the  first 
eight  columns  and  continuing  until  all 
estimates  have  been  entered.  A  data 
deck  includes  only  as  many  cards  as 
are  needed  to  enter  all  estimates.  For 
example,  10-year  analyses  require  one 
card  (10  estimates  per  80-column 
card);  25-year  analyses  require  three 
cards  (10  estimates  on  each  of  the 
first  two  cards  and  5  on  the  last 
card).  In  the  sample  data  deck  (fig.  3) 
the  estimated  prices  for  FAS  lumber 


(per  MBF)  in  the  first  and  second 
years  are  $505.00  and  $540.00,  respec¬ 
tively. 

On  the  next  card(s),  the  annual 
sales  volumes  of  the  first  product  are 
specified.  One  estimate  is  made  for 
each  year  in  the  planning  period.  One 
estimate  is  entered  in  every  eight  col¬ 
umns  starting  in  the  first  eight  col¬ 
umns  of  the  first  card  and  continuing 
until  all  estimates  have  been  entered. 
Estimates  are  made  as  whole 
numbers  and  must  be  right-justified  in 
each  eight-column  data  field.  Ten 
estimates  can  be  entered  per  card. 
The  data  deck  includes  only  as  many 
cards  as  are  needed  to  enter  all 
estimates.  The  sample  data  deck  (fig. 
3)  has  specified  that  300  MBF  of  FAS 
lumber  is  to  be  sold  in  the  first  year 
and  475  MBF  is  to  be  sold  in  the  se¬ 
cond  through  tenth  years. 

The  names,  prices,  and  sales 
volumes  of  other  products  are  entered 
on  additional  cards  according  to 
previous  instructions.  Five  products 
have  been  specified  in  the  sample 
data  deck  (fig.  3).  The  product  names 
are  FAS  LUMBER  (MBF),  SELECT 
(MBF),  #1  COMMON  (MBF),  #2  COM 
MON  (MBF),  and  TIES  (#).  Regardless 
of  how  many  products  are  specified 
(EVALUE  allows  from  1  to  20),  the  last 
product  item  in  the  data  deck  must  be 
flagged  with  a  “1"  in  column  18  of 
the  card  which  names  the  last  pro¬ 
duct  item.  Since  TIES  (#)  is  the  last 
product  item  in  the  sample  data  deck, 
there  is  a  “1"  entered  in  column  18 
after  TIES  (#). 

Cost  Cash  Flows 

After  the  gross  revenue  data  in  the 
form  of  product  price  and  sales 
volume  have  been  entered,  the  annual 
cost  cash  flows  associated  with  the 
investment  opportunity  are  entered 
There  are  four  categories  of  cost 
cash  flows  recognized  by  EVALUE 
Their  sequence  of  entry  in  an  EVALUE 
data  deck  is  as  follows: 

1.  Raw  Material  Costs  (2-120  cards) 

2.  Other  Variable  Costs  (2-120 
cards) 

3.  Fixed  Costs  (2-120  cards) 

4.  Capital  Investment  Cash  Flows 
(2-120  cards) 

‘  The  user  should  be  aware  that  with  certain 
unconventional  Investment  patterns.  Internal 
Rate  ot  Return  can  become  a  misleading  criteria 
EVALUE  does  not  determine  multiple  internal 
rates  of  return  Limitations  on  Internal  Rate  ot 
Return  are  introduced  in  some  ot  the  literature 
references  (1.  4,  6) 
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EXAMPLE  SAWMILL  ANALYSIS 
CASH  PLOW  ANALYSIS  •  NEt>  HARDWOOD  SAWMILL 
5  MMBP  THROUGHPUT  $  HYPOTHETICAL  DATA 

INITIAL  INVESTMENT  REQUIREMENT  S  550000 


YEARS 

1 

2 

3 

4 

5 

6 

7 

6 

9 

10 

FAS  LUMBER  (MSP) 

UNIT  SALES 

J00 

*75 

*75 

*75 

*75 

*75 

*75 

*75 

*75 

*75 

UNIT  PRICE 

9 

505.00 

s 

5*0,00 

S 

570.00 

S 

600.00 

i 

630.00 

9 

660.00 

9 

690.00 

9 

720.00 

9 

750.00 

9 

760.00 

SELECT  (MSP) 

UNIT  SALES 

150 

22  5 

225 

225 

225 

225 

225 

225 

225 

225 

UNIT  PRICE 

s 

465.00 

s 

515.00 

9 

5*5.00 

9 

575.00 

s 

610.00 

9 

6*0.00 

9 

670.00 

9 

700.00 

9 

730,00 

9 

760.00 

Rl  COMMON  (MBF) 

UNIT  sales 

*00 

1*75 

1*75 

1*75 

1*75 

1*75 

1*75 

1*75 

1*75 

1*75 

UNIT  PRICE 

I 

415.00 

9 

**5.00 

9 

*75.00 

9 

510.00 

s 

5*5.00 

9 

560.00 

9 

625.00 

9 

650.00 

9 

660.00 

9 

710.00 

It  COMMON  (MSP) 

UNIT  SALES 

1T5 

125 

325 

325 

325 

325 

325 

325 

325 

325 

UNIT  PRICE 

s 

215.00 

9 

2 50.00 

9 

2*5.00 

$ 

260.00 

9 

280.00 

9 

300.00 

9 

320.00 

9 

3*5.00 

9 

370.00 

9 

395.00 

TIES  (P) 

UNIT  SALES 

40000 

59000 

59000 

59000 

59000 

59000 

59000 

59000 

59000 

59000 

UNIT  PRICE 

s 

5.00 

9 

5.U0 

s 

5.90 

9 

6.40 

9 

6.90 

9 

7.50 

9 

8.20 

9 

8.90 

9 

9,60 

9 

10. *0 

CROSS  REVENUE 

s 

8J5JTS 

s 

1*22099 

8 

152172* 

9 

162872* 

9 

1736*74 

9 

1653000 

9 

196617* 

9 

2095*74 

9 

22101*9 

9 

233072* 

RAM  MATERIALS  COSTS 

SANLOGS 

s 

400000 

s 

860000 

9 

726000 

$ 

799000 

9 

678000 

9 

966000 

9 

1063000 

9 

1 169000 

9 

1286000 

9 

1*15000 

TIC  LOGS 

52000 

35000 

58000 

*2000 

*5000 

*9000 

5*000 

56000 

64000 

69000 

TOTAL 

9 

652000 

S 

695000 

9 

76*000 

9 

8*1000 

9 

923000 

9 

1015000 

9 

1  1  17000 

9 

1227000 

9 

1350000 

9 

1*6*000 

hill  labor 

s 

90000 

* 

105000 

S 

11*000 

9 

123000 

9 

133000 

9 

1**000 

9 

155000 

9 

170000 

9 

161000 

9 

196000 

YARD  LABOR 

20000 

30000 

32000 

3500U 

36000 

*1000 

*5000 

*6000 

52000 

56000 

KILN  LABOR 

12000 

13000 

t*000 

15100 

16300 

17600 

19000 

20600 

22200 

2*000 

shipping 

12500 

13500 

1*600 

15700 

17000 

16*00 

19600 

21*00 

23100 

26000 

MOB.  EQUIP.  OPER 

6500 

7*00 

8*00 

9600 

11000 

12500 

14300 

16300 

16500 

21100 

OIL 

*900 

11500 

13300 

15500 

17900 

20600 

24  100 

27900 

32500 

37700 

ELECTRICITY 

5*00 

6700 

7700 

8700 

10000 

11400 

13000 

1*600 

16600 

19200 

TOTAL 

9 

1T2000 

s 

187100 

9 

20*000 

9 

222600 

9 

2*3200 

9 

265700 

9 

290200 

9 

319000 

9 

3*6100 

9 

360000 

FIXED  COSTS 

AOMIN  OVERHEAD 

s 

T5500 

s 

79800 

S 

8*600 

9 

89*00 

9 

95100 

9 

100600 

9 

106600 

9 

113200 

9 

120000 

9 

127200 

MAINT  AND  REPAIR 

25T00 

27200 

28900 

30600 

32*00 

J«*00 

36500 

38600 

40900 

*3*00 

TAXES  AND  INSUR. 

T*00 

8700 

9600 

10500 

11600 

12700 

1*000 

15*00 

16900 

16600 

OPER.  SUPPLIES 

5000 

2100 

220  0 

2300 

2*00 

2500 

2600 

2700 

2800 

2900 

CONTINGENCIES 

10000 

11000 

12000 

13000 

1*000 

15000 

16000 

17000 

16000 

19000 

RISC.  UTILITIES 

5000 

5000 

5500 

5500 

6000 

6000 

6600 

6600 

7100 

7100 

TOTAL 

9 

120*00 

s 

133800 

9 

1*2800 

9 

151300 

9 

161500 

9 

171*00 

9 

162500 

9 

193500 

9 

205700 

9 

216200 

CAPITAL  INVESTMENT 

WORKING  CAPITAL 

9 

15000 

s 

16000 

9 

17000 

9 

18000 

9 

20000 

9 

21000 

9 

22000 

9 

2*000 

9 

26000 

9 

0 

NEW  EQUIPMENT 

0 

0 

0 

72000 

0 

0 

0 

0 

0 

0 

TOTAL 

t 

15000 

9 

16000 

9 

1  7000 

9 

90000 

9 

20000 

9 

21000 

9 

22000 

9 

2*000 

9 

26000 

9 

0 

SALVAGE  VALUE 

9 

1**000 

depreciation 

» 

55000 

9 

50500 

9 

*5100 

9 

39700 

9 

57200 

% 

39800 

9 

3*200 

9 

27*00 

9 

20600 

9 

1  3700 

profit  BEFORE  TAXES 

s 

-90525 

9 

*06199 

9 

*1092* 

9 

*1382* 

9 

*1077* 

S 

*00900 

9 

398*7* 

9 

3559T« 

9 

3083*9 

9 

2*852* 

(THE  TAX  RATI  IS  .08) 

AFTER  TAX  PROFIT 

9 

-154125 

9 

21996* 

9 

190229 

9 

19*5*5 

9 

183859 

9 

187773 

9 

169*23 

9 

170659 

9 

1*9526 

9 

122109 

after  tax  earnihcs 

& 

-90525 

9 

270*6* 

9 

235329 

9 

23*2*5 

9 

2*1059 

9 

227573 

9 

223623 

9 

148259 

9 

170326 

9 

27960* 

A.T.  NET  CASH  FLO* 

« 

-1 1 1525 

9 

25**64 

9 

218329 

9 

) **2*5 

9 

221059 

9 

206573 

9 

20)623 

9 

17*259 

9 

1**326 

9 

279809 

Figure  1. —First  part  of  EVALUE  output. 

The  user  specifies  the  items  which  flow  item.  Cost  cash  flow  data  are  the  first  raw  material  item  are  entered 

are  to  be  included  in  each  category  entered  into  a  data  deck  in  the  order  on  the  next  card(s)  with  one  annual 

and  estimates  the  amount,  in  dollars,  specified  above.  estimate  entered  for  each  year  in  the 

of  each  cash  flow  item  for  each  year  Raw  material  cost  data  are  entered  analysis.  Estimates  are  entered  as 
in  the  planning  period.  EVALUE  per-  on  cards  which  follow  the  product,  whole  numbers  justified  right  in  every 

mits  the  user  to  have  up  to  20  dif-  price,  and  sales  volume  entries.  The  eight  columns,  using  only  as  many 

ferent  items  in  each  category.  Each  name  of  the  first  raw  material  item  is  cards  as  are  required  to  enter  all 

annual  estimate  should  be  the  total  entered  in  the  first  16  columns  of  the  estimates.  Additional  raw  material 

year-end  cost  estimate  for  each  cash  first  card.  Annual  cost  estimates  for  items  and  cost  estimates  are  entered 
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on  additional  cards  according  to  the 
same  instructions.  A  “1”  must  be 
entered  in  column  18  of  the  card 
which  names  the  last  raw  material 
item  in  the  data  deck.  In  the  sample 
data  deck  (fig.  3)  two  raw  material 
items  are  specified,  SAWLOGS  and 
TIE  LOGS.  The  total  cost  shown  in 
the  sample  data  deck  for  sawlogs  is 
$600,000  at  the  end  of  the  first  year, 
$660,000  at  the  end  of  the  second 
year,  etc.  Likewise,  the  total  cost  for 
tie  logs  is  $32,000  at  the  end  of  the 
first  year,  $35,000  at  the  end  of  the 
second  year,  etc.  Note  that  TIE  LOGS 
is  the  last  raw  material  item  specified 
and,  therefore,  a  "1”  is  entered  in  col¬ 
umn  18  after  TIE  LOGS.  If  there  are 
no  raw  material  items  in  an  analysis, 
blank  cards  (2  to  6)  are  placed  in  the 
data  deck  at  this  point,  instead  of  raw 
material  data  cards.  The  first  card 
must  have  a  “1"  entered  in  column 
18. 

The  data  for  Other  Variable  Costs, 
Fixed  Costs,  and  Capital  Investment 
Cash  Flows  are  entered  after  the  Raw 
Material  Costs  data  according  to  the 
same  instructions.  From  1  to  20  items 
are  permitted  in  each  category.  A  “1” 
must  be  entered  in  column  18  of  the 
card  which  names  the  last  item  in 
each  category.  If  there  are  no  items  in 
a  category,  blank  cards  (2  to  6)  with  a 
"1”  entered  in  column  18  of  the  first 
card  are  used.  In  the  sample  data 
deck  (fig.  3)  there  are  seven  items  in 
the  category  of  Other  Variable  Costs 
(MILL  LABOR,  YARD  LABOR,  KILN 
LABOR,  SHIPPING,  MOB.  EQUIP. 
OPER.,  OIL,  and  ELECTRICITY),  six 
items  in  the  category  of  Fixed  Costs 
(ADMIN  OVERHEAD,  MAINT  AND 
REPAIR.  TAXES  AND  INSUR.,  OPER 
SUPPLIES,  CONTINGENCIES,  and 
MISC.  UTILITIES),  and  two  items  in 
the  category  of  Capital  Investment 
Cash  Flows  (WORKING  CAPITAL  and 
NEW  EQUIPMENT). 

Depreciation  (1-5  cards) 

The  user  estimates  the  deprecia¬ 
tion  schedule  in  dollars.  Those  users 
who  are  unfamiliar  with  determining 
depreciation  schedules  may  wish  to 
consult  a  current  tax  guide  or  some¬ 
one  who  is  familiar  with  various 
methods  for  determining  depreciation 
schedules.  There  are  many  different 
methods  and  a  number  of  rules 
governing  which  types  of  schedules 
are  permissible  under  specific  cir¬ 
cumstances. 

Total  annual  depreciation  for  the  in¬ 


vestment  opportunity  is  entered  on 
data  card(s)  following  the  capital  in¬ 
vestment  entries.  One  annual 
depreciation  allowance  estimate  is 
entered  for  each  year  in  the  planning 
period.  Estimates  are  entered  as 
whole  numbers,  right-justified,  in 
every  eight  columns,  using  only  as 
many  data  cards  as  are  required  for 
all  estimates.  In  the  sample  data  deck 
(fig.  3),  depreciation  is  $55,800  for  the 
first  year,  $50,500  for  the  second  year, 
etc. 

Initial  Investment  Tax 
Credit,  and  Tax  Rate  (1  card) 

The  user  estimates  Initial  invest¬ 
ment  and  first-year  Investment  Tax 
Credit  in  dollars  and  determines  an 
appropriate  tax  rate  to  be  used  in  the 
analysis.  Initial  investment  is  the 
total  amount  of  investment  capital  re¬ 
quired  at  the  beginning  of  the  invest¬ 
ment  planning  period  (at  time  zero ). 
The  Investment  Tax  Credit  is  a  credit 
against  federal  income  tax  which  is 
allowed  for  most  types  of  investment 
in  manufacturing.  Federal  Investment 
Tax  Credit  is  commonly  equal  to  10 
percent  of  a  given  investment.  The  ef¬ 


fective  tax  rate  is  that  fraction  of  tax¬ 
able  income  (gross  revenues  minus 
total  costs  and  depreciation)  that 
EVALUE  will  consider  to  be  taken  as 
federal  and  state  taxes  combined. 
Users  who  are  unfamiliar  with  tax 
rates  or  tax  credits  may  wish  to  con¬ 
sult  a  tax  guide  or  someone  familiar 
with  current  regulations. 

Investment  Tax  Credit,  tax  rate,  and 
initial  investment  are  entered  on  one 
data  card,  following  the  depreciation 
data  entries.  Investment  Tax  Credit  is 
estimated  as  a  whole  number  and 
entered,  right-justified  in  columns  1  to 
10.  Tax  rate  is  estimated  as  a  decimal 
fraction  and  entered  in  columns  11  to 
20  with  a  decimal  point.  Initial  invest¬ 
ment  is  estimated  as  a  whole  number 
and  is  entered,  right-justified  in  col¬ 
umns  21  to  30.  In  the  sample  data 
deck  (fig.  3)  Investment  Tax  Credit 
was  specified  as  $35,000,  the  tax  rate 
as  0.48  (i.e.,  48  pet),  and  the  initial  in¬ 
vestment  as  $550,000. 

Salvage  Value  and  Discount 
Rate  (1  card) 

The  user  estimates  end-of-planning 
period  salvage  value  and  chooses  an 


Table  1— A  summary  of  data  requirements  for  EVALUE 


Data  card 

Number  of 
cards 

Contents 

Format 

Output  title 

4 

Centered  title  tor 
output  headings 

4(20A4| 

Time  periods 

1 

Number  of  years  in 
analysis  ( =  N) 

6X.I2 

Gross  revenue 

up  to 

20  products 
or  220  cards 

Product  name." 

Product  prices. 

Product  sates  volumes 

4A4/ 

N'FB)/ 

N(t8> 

Raw  materials 

Up  to 

20  items 
or  120  cards 

Raw  material  name." 
Total  annual  cost 
cash  flows 

4A4/ 

N(I8) 

Other  variable 
costs 

up  to 

20  items  or 

120  cards 

Cost  item  name." 

Total  annual  cost 
cash  flows 

4A4/ 

N(I8) 

Fixed  costs 

up  to 

20  items 
or  120  cards 

Cost  item  name," 

Total  annual  cost 
cash  flows 

4A4/ 

N(I8) 

Capital  Invest¬ 
ments  (annual) 

up  to 

20  items 
or  120  cards 

Cost  item  name." 

Total  annual  cost 
cash  flows 

4A4/ 

N(I8| 

Depreciation 

1  to  5 

Annual  depreciation 
schedule 

N(I8) 

Tax  credit 

Tax  rate. 

Initial  invest¬ 
ment 

1 

First-year  tax  credit. 
Effective  tax  rate. 

Initial  investment 

no. 

F10. 

no 

Salvage  value. 
Discount  rate 

1 

Net  salvage  value. 
Discount  rate 

no. 

F10 

•The  last  name  in  each  category  must  be  "flagged"  by  punching  a  "t"  in  column  18  attet  the  name 
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appropriate  discount  rate  for  the 
analysis.  EVALUE  uses  the  specified 
discount  rate  for  discounting  all  cost 
and  benefit  cash  flows  in  determining 
present  value.  The  salvage  value  in 
EVALUE  is  the  net  cash  value  of  re¬ 
maining  equipment,  facilities, 
buildings,  and  other  capital  equip¬ 
ment,  which  are  accounted  for  at  the 
end  of  the  planning  period.  In  deter¬ 
mining  net  salvage  value,  the  user 
should  deduct  disposal  costs  and  any 
associated  taxes  such  as  taxes  due 
to  depreciation  recapture.  The  net 
salvage  value  should  not  be  confused 
with  adjusted  basis,  “book  value,”  or 
"trade-in  value,”  since  those  are 
estimates  of  the  gross  (rather  than 
net)  salvage  value. 

Salvage  value  is  entered  as  a  whole 
number  right-justified  in  columns  1  to 


10,  on  the  last  card  In  the  data  deck. 
The  discount  rate  is  entered  as  a 
decimal  fraction  with  a  decimal  point, 
in  columns  11  to  20.  in  the  sample 
data  deck  (fig.  3)  a  salvage  value  of 
$44,000  and  a  discount  rate  of  0.15 
(i.e.,  15  pet)  are  specified. 

EVALUE  Output 

The  structure  and  content  of  the 
EVALUE  output  is  determined  largely 
by  the  data  input.  The  first  part  of  the 
output  (fig.  1)  is  a  straightforward 
summary  of  cash  flows,  In  a  form 
which  is  commonly  presented  in  text¬ 
books  on  cash  flow  analysis.  EVALUE 
will  adjust  the  length  of  the  output 
relative  to  the  number  of  cash  flow 
items  which  are  input  as  data. 


EVALUE  will  also  automatically  add 
additional  pages  of  output  summary 
for  analyses  which  go  beyond  10 
years  and  require  more  than  10  col¬ 
umns  of  output. 

The  second  part  of  the  output  (fig. 

2)  contains  several  commonly  used  in¬ 
vestment  analysis  criteria  which  are 
used  for  ranking  investments  or  deci¬ 
sion-making  relative  to  investment  op¬ 
portunities.  The  mathematical  deriva¬ 
tion  of  the  criteria  and  explanations 
of  their  usefulness  may  be  found  in 
texts  and  publications  dealing  with 
cash  flow  and  investment  analysis. 
The  EVALUE  program  and  listing  (ap¬ 
pendix)  contain  sufficient  internal 
documentation  for  locating  the  pro¬ 
gram  statements  and  formulas  used 
in  calculating  the  investment  criteria. 


DISCOUNTED  CASH  FL0NS  AND 

INVESTHENT 

CRITERIA 

YEARS 

AFTER  TAX  NET 
CASH  FL0N 

X  PRESENT  VALUE 

FACTOR  AT 

*  PRESENT  VALUE  OF 

NET  CASH  FLO* 

1  CUMULATIVE 

I  NET  CASH  FLOH 

0 

s 

-550000 

R*  15.00X 

1.00000 

£  m 

550000 

S 

-550000 

1 

s 

•t 13325 

.86957 

i 

-98543 

t 

-648543 

2 

s 

254464 

.75614 

S 

192411 

l 

-456132 

3 

s 

218329 

.65752 

s 

143554 

% 

-312578 

4 

s 

144245 

.57175 

3 

82472 

» 

•230106 

5 

s 

221059 

,49718 

* 

1 09905 

s 

-120201 

* 

s 

206573 

.43233 

S 

89307 

s 

-30894 

7 

s 

201623 

.37594 

* 

75797 

t 

44903 

S 

s 

174259 

.32690 

s 

56965 

t 

101868 

» 

s 

144326 

.26426 

t 

41026 

l 

142894 

to 

s 

279809 

.24718 

s 

69164 

s 

212058 

THE  PRESENT  NET  NORTH  (PNN )  19  S  212058  AT  15.00  X  DISCOUNT 

THE  TOTAL  INITIAL  INVESTMENT  REOUIREHfcNT  IS  S  550000 

THE  PAYBACK  PERIOD  (PBP)  BASE0  ON  AFTER  TAX  NET  CASH  FLO*  IS  0.21  YEARS 

THE  INTERNAL  RATE  OF  RETURN  (IRON)  BASED  ON  AFTER  TAX  NET  CASH  FLO*  IS  22.20  X 

THE  PRESENT  NET  NORTH/INITIAL  INvESTHEnT  RATIO  IS  38.56  X 


Figure  2.— Second  part  of  EVALUE  output. 


Example  sawmill  analysis 

CASH  FLOW  ANALYSIS  -  NEW  HARDWOOD  SAWMILL 
5  MMBF  THROUGHPUT i  HYPOTHETICAL  DATA 
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PAS  LUMBER  (MBF) 


505.00 

540.00 

570.00 

600.00 

650.00 

660.00 

690.00 

720.00 

750.00 

500 

475 

475 

475 

475 

475 

475 

475 

475 

SELECT  (MBP) 

485.00 

515.00 

545.00 

575.00 

610.00 

640.00 

670.00 

700.00 

750.00 

150 

225 

225 

225 

225 

225 

225 

225 

225 

•1  COMMON 

(MBF) 

415.00 

445.00 

475.00 

510.00 

545.00 

580.00 

625.00 

650.00 

680.00 

900 

1475 

1475 

1475 

1475 

1475 

1475 

1475 

1475 

«2  COMMON 

(MBP) 

215.00 

250.00 

245.00 

260.00 

280.00 

500.00 

520.00 

545.00 

570.00 

175 

525 

525 

525 

525 

525 

525 

525 

525 

TIES  (•) 

1 

5.00 

5.40 

5.90 

6.40 

6.90 

7.50 

8.20 

6.90 

9.60 

40000 

59000 

59000 

59000 

59000 

59000 

59000 

59000 

59000 

sawlogs 

600000 

660000 

726000 

799000 

878000 

966000 

1065000 

1169000 

1286000 

TIE  LOGS 

1 

52000 

55000 

58000 

42000 

45000 

49000 

54000 

58000 

64000 

MILL  LABOR 

98000 

105000 

114000 

125000 

1  55000 

144000 

155000 

170000 

181000 

YARD  LABOR 

28000 

50000 

52000 

55000 

58000 

41000 

45000 

48000 

52000 

KILN  LABOR 

12000 

15000 

14000 

15100 

16500 

17600 

19000 

20600 

22200 

SHIPPING 

12500 

11500 

14600 

15700 

17000 

18400 

19800 

21400 

25100 

MOB.  EQUIP 

.  OPER 

6500 

7400 

8400 

9600 

11000 

12500 

14)00 

16500 

18500 

OIL 

9900 

11500 

15500 

15500 

17900 

20800 

24100 

27900 

52500 

ELECTRICITY 

1 

5900 

6700 

7700 

8700 

10000 

11400 

15000 

14600 

16800 

AOMIN  OVERHEAD 

75500 

79800 

84600 

89400 

95100 

100800 

106600 

115200 

120000 

MAINT  AND 

REPAIR 

25700 

27200 

28900 

50600 

52400 

54400 

56500 

58600 

40900 

TAXES  AND 

INSUR. 

7900 

8700 

9600 

10500 

11600 

12700 

14000 

15400 

16900 

OPER.  SUPPLIES 

5000 

2100 

2200 

2500 

2400 

2500 

2600 

2700 

2800 

CONTINGENCIES 

10000 

11000 

12000 

15000 

14000 

15000 

16000 

17000 

18000 

MISC.  UTILITIES 

1 

5000 

5000 

5500 

5500 

6000 

6000 

6600 

6600 

7100 

WORKING  CAPITAL 

15000 

16000 

17000 

18000 

20000 

21000 

22000 

24000 

26000 

NEW  EQUIPMENT 

1 

0 

0 

0 

72000 

0 

0 

0 

0 

0 

55800 

50500 

45100 

59700 

57200 

59800 

54200 

27400 

20800 

15000  0.480  550000 

144000  0.15 

Figure  3.—EVALUE  data  deck,  sample  data. 


160.00 

475 

760.00 

225 

710.00 

1475 

145.00 

525 

10.40 

59000 

1415000 

69000 

196000 

56000 

24000 

26000 

21100 

57700 

19200 

127200 

45400 

18600 

2900 

19000 

7100 

0 

15700 
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Appendix 

Listing  of  EVALUE 
Program  Statements 


DIMENSION  C1NV(4,20),CUNF(50),F IXC (4,20),NNIT(50),OTHC(4,20), 

EVAL 

10 

lP(50,20),PVF(50),RMAT(4,20),TITLf80),SALE  (4,20) 

eval 

20 

INTEGER  A(50,20),ATRN(50),ATPR(50),B(50,20),CDCF (SO), 

eval 

30 

1C(50,20),D(50,20),E(50,20),F(50),FL*G,GROS(50), 

EVAL 

40 

2NFLO(50),PRBF(50),PVNF(50),S,SUMF(50),T,TAXL.TUNT, 

EVAL 

50 

3TB(50)*TC(50),TD(50),TE(50) 

eval 

60 

PE  AD  IN  TITLE  OF  OUTPUT  ANO  THE  NUMBER  OF  YEARS  IN  THE  ANALYSIS 

eval 

70 

RE AD(5» 1 )  CTITLtI).I*l.80) 

eval 

80 

1  FORMAT (20A4) 

eval 

90 

RE AD (5# 4 )  TUNT 

eval 

100 

READ  IN  NAMES  AND  CASH  FLOWS  OF  'SALES', 'RAW  MATERIALS',' 

OTHER 

eval 

110 

VARIABLE  COSTS' , 'FIXED  COST S AND ' CAP  1 T AL  INVESTMENT*  CATEGORIES 

EVAl 

120 

NSALwO 

EVAL 

130 

DO  5  J* 1 , 20 

eval 

140 

NSAL«NSAL+1 

eval 

ISO 

READ(S,2)  (SALE(I,J),I*1,4),FLAG 

EVAL 

160 

2  FORMAT (4A4, 12) 

EVAL 

170 

READ(5,3)  CP(I,J), 1*1, TUNT) 

eval 

180 

3  FORMAT(IOFB) 

eval 

190 

RE AD (5, 4 )  (A(I,J), 1*1, TUNT) 

Eval 

200 

4  FORMAT(IOIB) 

eval 

210 

IMFLAG.EO.l)  GO  TO  6 

eval 

220 

5  CONTINUE 

eval 

230 

6  CONTINUE 

eval 

240 

CALL  SUB! (HMAT,B.TB,L1,TUNT) 

eval 

2S0 

CALL  SUB! (0THC,C,TC,L2, TUNT) 

eval 

260 

CALL  3UH1CFIXC,D,TD,L3,TUNT) 

Eval 

270 

CALL  SUB1 (CINV,E,TE,L4,TUNT) 

eval 

280 

READ  IN  TOTAL  DEPRECIATION  FOR  EACH  TIME  PERIOD 

eval 

290 

RE  AD (5, 4 )  (F(l), 1*1, TUNT) 

eval 

300 

READ  IN  THE  INVESTMENT  TAX  CREDIT,  TAX  RATE,  AND  INITIAL 

INVESTMENT 

eval 

310 

RE AD (5, 12 )  ITCR.TXRT.IVST 

Eval 

320 

DO  11  1*1, TUNT 

eval 

330 

GROS ( I ) *0 , 0 

eval 

340 

DO  7  J* 1 , NS AL 

eval 

350 

GROS(I)*GROS(I)tP(I,J)*ACI,J) 

eval 

360 

7  CONTINUE 

EVAL 

370 

CALCULATE  PROFIT  BEFORE  TAXES  (PRBF )  FOR  EACH  TIME  PERIOD 

Eval 

380 

PWBFfI)*GR0S(I)-T8(I)-TC(I)-TD(I) 

eval 

390 

CALCULATE  AFTER  TAX  PROFIT  ( ATPR )  FOR  EACH  TIME  PERIOD 

eval 

400 

IF ( (PRBF (I )«F (I ) ) , LE . 0 )  ATPR (I ) *PRBF C I ) -F ( I ) 

eval 

410 

IF((PRBF(I)-F(I)).LE.O)  GO  TO  10 

eval 

420 

CALCULATE  tax  LIABILITY  IF  APPLICABLE 

eval 

430 

TAXL*TXRT*(PRBF(I)-F(I)) 

eval 

440 

ATPR(I)*PRBFm-F(n-TAXL 

eval 

450 

CALCULATE  REDUCTION  IN  TAX  LIABILITY  FROM  INVESTMENT  TAX 

CREDIT 

eval 

460 

IF(ITCR.LE.O)  GO  TO  10 

Eval 

470 

IFCTAXL.LT.ITCR)  GO  TO  8 

EVAL' 

480 

taxl*taxl-itcr 

eval 

490 

ITCR*0 

eval 

500 

GO  TO  9 

eval 

510 

8  CONTINUE 

EVAL 

520 

ITC«*ITCR«TAXL 

eval 

530 

TAXLBO.O 

Eval 

540 

2 


,1 


8 


9  CONTINUE 

ATRR(I)*PRBF (I )-F (I )-TAXL 

10  CONTINUE 

C  CALCULATE  AFTER  TAX  EARNINGS  ( A  TRN )  FOR  EACH  TIME  PERIOD 
ATRN(I)*ATPR(I)*F(I) 

C  CALCULATE  AFTER  TAX  NET  CASH  FLOW  (NFLO)  FOR  EACH  TIME  PERIOD 
NFLOm«ATRN(I)-T£(n 

11  CONTINUE 

C  READ  IN  THE  SALVAGE  VALUE  AND  THE  DISCOUNT  RATE 
REA0(S,12)  ISAL«DISR 

12  F0RMAT(I10,F10,I10) 

ATRN(TUNT)*ATPR(TUNT)tF (TUNTJ+ISAL 
NFLO ( TUNT )*ATRN( TUNT )-TE (TUNT) 

ROl *0  •  0 
I T  1  *  1 
I T  T 1 *2 
IT2*1 
ITT2*2 
I T3*  1 
I TT3*2 

13  CONTINUE 

C  CALCULATE  INTERNAL  RATE  OF  RETURN 
IF(ROI  .LT.  0.0)  GO  TO  23 
IF(ROI  ,GT.  1.0)  GO  TO  23 
CUNF(l)*(NFL0(l)/(1.0*R0l))-IVST 
DO  10  1*2, TUNT 

CUNF(I)*CUNF(I»|)+(NFL0(I)/((1 . OfROI )**(!))) 

10  CONTINUE 

IF  ( IT  1  .EQ.  ITT1)  GO  TO  17 
IF(CUNF(TUNT))  15,23,16 

15  ROI*ROI-O.l 
IT1*3 

GO  TO  13 

16  RO I*RO 1*0.1 
ITT  1*3 

GO  TO  13 

17  IF ( I T2  .EO.  I T T2 )  GO  TO  20 
IF (CUNF (TUNT)  )  18,23,19 

18  ROIsROI-O.Ol 
I T  2*3 

GO  TO  13 

19  RO I *ROI ♦0.01 
I T  T2*3 

GO  TO  13 

20  IF ( IT3  .EO.  ITT3)  GO  TO  23 
IF(CUNF(TUNT))  21,23,22 

21  RO I *R0 1*0,001 
I T  3*3 

GO  TO  13 

22  ROI*R0I*0.001 
ITT  3*3 

GO  TO  13 

23  RORI*100.0*ROI 

IF (ROR I  ,LE.  0.0)  RORI*0.0 

IF(R(1RI  .GE .  100.0)  RORIslon.O 

24  CONTINUE 

C  CAlCl'LATfc  THE  PRESENT  vAUJF  OF  the  NET  CASH  HOW  FOR  EACH  YEAR 
T  AND  THF  C'JH'IL  AT !  VE  NET  CASH  FLO*»  AT  THE  GIVEN  DISCOUNT  PATE 
00  25  1st, TUNT 

PVNF  (  J  IsNFLOd  )/((  1  ♦D1SR)«MI)) 


EVAL  550 
EVAL  560 
EVAL  570 
EVAL  580 
EVAL  590 
EVAL  600 
EVAL  610 
EVAL  620 
EVAL  630 
EVAL  640 
EVAL  650 
EVAL  660 
EVAL  670 
EVAL  680 
EVAL  690 
EVAL  700 
EVAL  710 
EVAL  720 
EVAL  730 
EVAL  740 
EVAL  750 
EVAL  760 
EVAL  770 
EVAL  780 
EVAL  790 
EVAL  800 
EVAL  810 
EVAL  620 
EVAL  830 
EVAL  840 
EVAL  850 
EVAL  860 
EVAL  870 
EVAL  880 
EVAL  890 
EVAL  900 
EVAL  910 
EVAL  920 
EVAL  930 
EVAL  940 
EVAL  950 
EVAL  960 
EVAL  970 
EVAL  980 
EVAL  990 
EVAL 1 000 
EVAL 1010 
EVAL 1 020 
EVAL 1030 
EVAL 1 040 
EVAL 1 050 
EVAL1060 
EVAL 1070 
EVAL1080 
F VAL 1 090 
EVAL1 1 00 
evai  i  no 
EVAL 1120 
EVAL1 130 
EVAL1140 
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PVF(n*1.0/<U  *01  SR  >**{!>) 

25  CONTI mUE 
COCMlIsPVNE  (I  )-JvST 
SUME  (  1  l=NELO(t  )  -  J  V  S  T 
00  26  I =  2  #  TUN  T 

COCF  (I)sCOCF (I-l)tPVNF(I) 

SOME  (IlsSUMMI-lUNFLOU  ) 

26  CONTINUE 

C  CALCULATE  PRESENT  VALUE/INVE STMFNT  PATIO  PERCENT 
PV IC=(100.0*COCF (TUNT ) )/I VST 

C  CALCULATE  PAYBACK  PEWIUP  (PBAK)  IN  THE  GIVEN  TIME  UNITS 
DO  28  1=1 ,  TUNT 

iKi.GT.n  go  to  n 

njEEsSUME ( 1)*I VST +0.0001 
P«AK=I VST/01EF 
IE (SOME ( 1 ) .GT.O)  GO  TO  29 
GO  TO  26 

27  CONTINUE 

DIEFsSUMF ( I l-SUHF (1-1 JtO.OOOl 
PEAKS  f 1-1  ) ♦  ( (-SUMF ( 1-1 ) J/OIEE  ) 

IE(SUME(I).r-T.O)  GO  TO  29 

28  CONTINUE 

29  CONTINUE 
DISR=DISR*100.0 
DO  5o  1=1, TUNT 

50  NN I T ( T 1  a  I 

WRITE (8,31)  ( T T TL  (I  ) , 1  =  1 ,80) , TVST 

31  eprmat  ( '  1  '  ,<4(20X,20A«/)  '  INITIAL  INVESTMENT  PF  QUIRE  men  t 

c 

C  WPITF  CASH  ELUwS 
C 

S=1 
T  =  1  0 

K=(TUNT/10)»2 

TEf(TUNT-IO)  ,LT.  0)  Ts  TUNT 
DO  69  M s  ]  ,  K 

IE(M  .EM,  1)  WRITE (6,32)  (NNIT(I),I=S,T) 

32  FORMAT (15*. 'YEARS' »5X, 9(12, 8x),l2//) 

IF(M  ,GT.  1)  «RITE(6,33)  ( NN  J  T (I ),IsS,T) 

S3  Format ( '0 ’ //// 15X,  •  YE ARS  '  ,5X,9 (12,8*  )  , 12// ) 

Kf=T-Stl 
DO  36  Jal.NSAL 

RPITE (6,39)  (SALE (I,J),I  =  1 ,9), (A (I, J),  I=S,T) 

30  FORMAT  (  *0*  ,UA«/<1X,  'UNIT  SALES', 6X,  101  10) 

wR I TE ( 6 , 35 )  (P(I,J),T=S,T) 

35  FORMATC  ’  ,  SX ,  'UNIT  PR1CE',6X,10(3X,F7.2)) 

CALI  DOLS(KK) 

36  CONTINUE 

MR  I TE ( b»  37 )  (GROS(I),I*S,T) 

37  FORMAT( *0’ ,5X, 'GROSS  RE VENUE  ' , 3X , 1 0 ( 1 8, 2X  ) ) 

CALI  DOLS(KK) 

WRITE  (6, 38)  (RMAT(I,n,I*1,U),  (B  ( 1  ,  1  )  ,  1  =S,  7  ) 

38  FORMATCORAW  MATERIALS  COSTS  ’ /OX  ,  0  AO  ,  2X  ,  1  0  (  1 8 , 2X  )  ) 

CALL  OOLS(MK) 

IF (L 1  .EQ.  1)  GO  TO  01 
L*  1 

39  L*L*1 

WRIT€(6,«OT(RMAT(I,L),I«1,0),(B(I,L),I*S,T) 

00  FORMATC  *  ,3X,0A«,  10110) 

IF (LI  .EQ,  L)  GO  TO  01 


EVAL1150 
EVAL 1 160 
EVAL  1  1 70 
EVAL 1  180 
EVAL 1190 
EVAL1200 
EVAL1210 
FVAL 1220 
EVAL 1230 
E  v AL 12o0 
FVAL 1 250 
EVAL1260 
E  v AL 1270 
Ev Ai 1280 
E  VA(  1290 
EVAL 1 300 
E  vAL 1 31 0 
EVAL 1 320 
EVAL1330 
EVAL 1 3«0 
E VAL1350 
EV AL 1 360 
EVAL 1 370 
f VA( 1380 
EVAL 1 390 
EVAL1000 
EVAL  1  mo 
*',I10//)EvALl«20 
t V Al 1 030 
EVAL luuo 
Evai  l aSO 
EVAl  1  ahO 
E  VAL 1 o  To 
E VAL 1 u80 
EVAl  la90 

E  v  al 1 500 

EVAl 1810 
EVAl 1 S20 
EVAL 1530 
EVAL 1 sao 
EVAl 1550 
F  V  AL 1 5bO 
EVAl 1570 
EVAL 1580 
EVAL 1590 
F  V  Al  ItoOO 
FVAL 1610 
t  VAL  1620 
EVAL 1630 
EVAL 1600 
F  V  AL 1 650 
EVAl 1660 
EVAL1670 
EVAL1680 
EVAL 1690 
EVAL 1700 
EVAL 1 71 0 
EVAL 1 720 
EVAL 1 730 
EVAL 1700 
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GO  TO  39 

EVAL1750 

41 

CONTINUE 

EVAL1760 

WRITE(6,42)(T8(l),I*S,T) 

E V*L 1 770 

42 

FORMAT (6X,  'TOTAL' »nx,  to  ua,2xn 

EVAL 1780 

CALL  OOLS(KK) 

EVAL 1790 

WRITE(6,43)(0THC(I,l),I*l,4),(C(I,l),I*S,T) 

E VAL  1800 

43 

FOHMATf 'OOTHER  VARIABLE  COST S ' /4X , 4 A4 , 2X , 1 0 ( I 8 , 2X ) ) 

EVAL1810 

CALL  OOLS(KK) 

EVAL 1820 

IF (L2  .EQ.  1)  GO  TO  45 

EVAL 1830 

L*1 

EVAL 1 840 

44 

L*L*1 

EVAL 1850 

NRITE(6,40)(OTHC(I,L),I*1,4), (C ( I ,L ) , I *S, T ) 

EVAL  1860 

IF (L2  .EQ.  L)  GO  TO  45 

EV*L 1870 

GO  TO  44 

EVAL 1 880 

45 

CONTINUE 

EVAL1890 

WHITE (6,42)(TC(I),I*S,T) 

EVAL 1900 

CALL  DOLS(KK) 

EVAL 1 9 1 0 

WRITE (6, 4b) (FIXC (1,1), 1*1,4), (0(1, 1 )  ,  I*S,T ) 

EVAL 1920 

46 

FORMAT (  'OFIXED  COSTS  ' /4X , 4A4 , 2X , 1 0 { I 8 , 2X ) ) 

EVAL 1930 

CALL  DOLS(KK) 

EVAL1940 

IF (L3  ,EO.  n  GO  TO  48 

EVAL 1950 

L«1 

EVAL 1 960 

47 

l  *L  ♦  1 

EVAL 1970 

WRITE (6, 40)  (FIXC(I.L), 1*1 ,4) , (0(l,L ) . I*S,T) 

EVAL 1980 

IF (L3  .EQ.  L)  GO  TO  48 

E VAL1990 

GO  TO  47 

EVAL2000 

48 

CONTINUE 

EVAL2010 

WRITE(6,42)(T0(I),I*S,T) 

EVAL2020 

CALL  OOLS(KK) 

EVAL  2030 

WRITE(6,49)(CINV(I,1),I*1,4), (E (I,1),I*S,T) 

EVAL2040 

49 

FORMAT ( 'OCAPITAL  INVESTMENT  */4X,4A4,2X, 10(18, 2X) ) 

EVAL2050 

CALL  OOLS(KK) 

EVAL2060 

IF(L4  .EQ.  1)  GO  TO  51 

EVAL2070 

L*  1 

EVAL  2080 

50 

L*L  +  1 

EVAL2090 

WRITE(6,40)(CINV(I,L),I*1,4), (E(I,L),I*S,T) 

EVAL2100 

IF(L4  .EQ.  L)  GO  TO  51 

EVAL21 10 

GO  TO  50 

EVAL2120 

51 

CONTINUE 

EVAL2130 

WRITE(6,42) (TE (I),I*S,T) 

EVAL2140 

CALL  DOLS(KK) 

EVAL2150 

IF ( TUNT  .GT.  T)  GO  TO  62 

EVAL2160 

ND*T-S*1 

EVAL2170 

IF ( NO  .EQ.  1)  WRITE (6,52)  ISAL 

EVAL2180 

IF (NO  .EQ.2)  WRITE (6, 53)  ISAL 

EVAL2190 

I F (NO  .EQ.  3)  WRITE (6,54)  ISAL 

EVAL  2200 

I F (NO  .EQ.  4)  WRITE (6,55)  ISAL 

EVAL2210 

IF ( NO  . EQ .  5)  WRITE (6,56)  ISAL 

EVAL2220 

IF (NO  .EQ.  6)  WRITE (6,57)  ISAL 

E V  *L  2230 

IF (NO  .EQ.  7)  WRITE (6,58)  ISAL 

EVAL2240 

IF (NO  .EQ.  8)  WRITE (6,59)  ISAL 

EVAL2250 

IF (NO  .EQ.  9)  WRITE (6,60)  ISAL 

EVAL2260 

IF (NO  .EQ.  10)  WRITE (6, 61)  ISAL 

EVAL2270 

52 

FORMAT (' OS ALV AGE  VALUE ' , 7X , ' S ' , I 8  ) 

EVAL2280 

53 

FORMAT! 'OS ALV AGE  VALUE ' , 1 7X , ' $ ' , I 8 ) 

EVAL2290 

54 

FORMAT ( 'OSALVAGE  VALUE* ,27X, '$',18) 

EVAL2300 

55 

FORMAT ( 'OS ALV AGE  VALUE  * , 37X , ' S ’ , 1 8 ) 

EVAL2310 

56 

FORMAT! 'OSALVAGE  VALUE  *,47X,'S',I8) 

EVAL2320 

57 

FORMAT ( 'OSALVAGE  VALUE ' , 57X , * S » , I 6 ) 

EVAL2330 

56 

FORMAT ('OSALVAGE  V ALUE ' , 67X , • S ’ , I 8 ) 

EVAL2340 
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59  FORMAT!  'OSHVAGE  VALUE  • ,  77X ,  •  *  *  ,  18 )  EVAL2S50 

60  FORMAT ('OSALVAGE  VALUE', 87X, 'S', 18)  EVAL2360 

61  FORMAT! 'OSALVAGE  VALUE *,97X, 'S', T8)  EVAL2370 

6?  CONTINUE  EVAL2360 

WRITE (6,63)  (F  ( I  )  ,  I*S , T )  EVAL2390 

63  FORMAT('ODEPRECIATION',9X, 10(18, 2X)1  E V AL2400 

CALL  DOLS(KK)  EVAL2410 

MR  I  TE (6,64 )  (PR8F ( I ) , I«S,T )  EVAL2420 

64  FORMAT! 'OPROFIT  BEFORE  T AXES ' , 2X , t 0 (18 , 2X ) )  EWAL2430 

CALL  OOLS(KK)  E V AL2440 

MRITE (6,65)  TXRT  EVAL2450 

65  FORMAT ( '  (THE  TAX  RATE  I S ' ,F4 . 2 , » ) ' )  EVAL2460 

mRITE (6,66)  (ATPR(I),I*S,T)  EVAL2470 

66  FORMATC  AFTER  TAX  PROF  IT', 5X, 10(18, 2X))  EVAL2480 

CALL  DOLS(KK)  EVAL2490 

MRIT£(6,67)  (ATRN(I),I*S,T)  EVAL2500 

67  FORMATC  AFTER  TAX  E  ARNINGS  '  ,  3X  ,  1  0  (  18 , 2X  )  )  EVAL2510 

CALL  OOLS(KK)  EVAL2520 

MRITE (6,68 )  (NFLO(I),I*S,T)  EVAL2530 

69  FORMATC  A.T.  NET  CASH  FLOM',3X, 10(18, 2X))  EVAL2540 

CALL  OOLS(KK)  E V Al 2550 

IF (TUNT  .EQ,  T)  GO  TO  70  EVAL2560 

8*8*  1 0  EVAL2570 

T*T ♦ 1 0  EVAL2580 

IF  ( T  .GE.  TUNT)  T*TUNT  EVAL2590 

69  CONTINUE  EVAL2600 

70  CONTINUE  EVAL2610 

MRITE (6,71 )  01  SR  EVAL2620 

71  FORMAT C 1 ' ,22X, 'DISCOUNTED  CASH  FLOMS  AND  INVESTMENT  CRITERIA'///  EVA12630 

118X,  'AFTER  TAX  NET • ,6X ,' X », 6X , 'PRESENT  V ALUE *, 5X 6X ,' PRESENT  VE V AL 2640 
2ALUE  0F'/3X, 'YEARS', 12X, 'CASH  FLOW », l 7X, 'FACTOR  AT  '  , 1 6X ,  'NET  CASH  EVAL2650 
3FL0M',9X, 'CUMULATIVE  NET  CASH  FLOm • /46X ,' Rs • ,F6 ,2 ,'*'// )  EVAL2660 

IV3T*-IVST  EVAL2670 

IZRO*0  EVAL2680 

ONER* 1,0  EVAL2690 

MRITE (6,72)  IZR0,IVST,0NER,IVST,IVST,  EVAL2700 

1 (NNITd ),NFLO(I),PVF(I),PVNF(I),CDCF(I),Isl  ,T)  EVAL2710 

72  F0RMAT(4X,I2,9X, 'S' ,  1X,I10,19X,F8.5, 14X, 'S' , IX, I 10,21X, 'S  ’,110)  EVAL2720 

I V3T*-I VST  £  V  AL  27 30 

MRITE(6,73)  CDCF(TUNT),DISR  EVAL2740 

73  FORMAT (////3X, 'THE  PRESENT  NET  WORTH  (PNW)  IS  '  ,2X , ' S ' , I  1 0 , •  AT  * ,EVAL27S0 

lFh.2.'  t  DISCOUNT'//)  EVAL2760 

WRITE (6,74)  I  VS  T  EVAL2770 

74  F0RMAT(3X, 'THE  TOTAL  INITIAL  INVESTMENT  REQUIREMENT  IS',  EVAL2780 

1SX,  •$' ,110//)  EVAL2790 

IF (SUMF (TUNT  )  . GE .  0)  GO  TO  76  EVA1  2800 

WRITE (6,75)  TUNT  EVA12810 

75  format ( 3x, *  the  investment  is  npt  repaid  in', 12, ix, 'years'//)  eval282o 

76  CONTINUE  EVAL2M30 

IF (SUMF (TUNT )  ,LT.  0)  GO  TO  78  EVAL2840 

MRITE(6,77)  PBAk  E  V  AL  2850 

77  F0RMAT(3X,  'THE  PAYBACK  PERIOD  (PBP)  RASED  ON  AFTER  TAX  NET  CASH  FLEVAL2860 

10W  IS' ,F5. 2, IX, 'YEARS'//)  EVAL2870 

78  CONTINUE  E  V  AL  2880 

IF (PORI  , GT ,  0.0  .AND.  RO»I  ,LT.  100.00)  wR!Tt(6,79)  ROHI  EVA1.2890 


3FL0M',9X, 'CUMULATIVE  NET  CASH  FLOm • /46X ,' R*  •  ,F6 .2  ,'*'// )  EVAL2660 

IVST*-IVST  EVAL2670 

I ZRO*0  EVAL2680 

ONER*  1.0  EVAL2690 

MRITE (6,72)  IZR0,IVST,0NER,IVST,IVST,  EVAL2700 

1 (NNITd ),NFL0(I),PVF(I)»PVNF(I),CDCF(I),IS1 ,T)  EVAL2710 

72  F0RMAT(4X,I2,9X, 'S' , lx,110, 19X.F8.5, 14X, 'S' , 1 X, I 10,21X, •*  ’,110)  EVAL2720 

IVST*-IVST  £  V  At  27  30 

WRITE (6, 73)  C DCF (TUNT ),DISR  EVAL2740 

73  FORMAT (////3X,  'THE  PRESENT  NET  WORTH  (PNW)  IS ' ,2X , ' S ' , I  1 0 , '  AT',EVAL2750 

1 F  6 . 2  •  '  X  DISCOUNT'//)  EVAL2760 

WRITE (6,74)  I  VS  T  EVAL2770 

74  FORMAT ( 3X ,'  T  HE  TOTAL  INITIAL  INVESTMENT  REQUIREMENT  IS',  EVAL2780 

1SX, '$* ,110//)  EVAL2790 

IF (SUMF (TUNT  )  .GE.  0)  GO  TO  76  EVA1  2800 

WRITE (6,75)  TUNT  EVA12810 

75  F0RMAT(3X, 'THE  INVESTMENT  IS  NPT  REPAID  IN ' , I  2 , 1 X ,  '  YE ARS ’ // >  EVAL2820 

76  CONTINUE  EVAL2830 

IF (SUMF (TUNT  )  .LT.  0)  GO  TO  78  E  V  AL  280  0 

WRITE(6,77)  PBAk  EVAL2R50 

77  F0RMAT(3X, 'THE  PAYBACK  PERIOD  (PBP)  RASED  ON  AFTER  TAX  NET  CASH  FLEVAL2860 

10W  IS', F5. 2, IX, 'YEARS'//)  EVAL2870 

78  CONTINUE  E  V  AL  2880 

IF (PORI  ,GT.  0.0  .ANO.  RO»I  ,LT.  100.00)  *R1TE(6,79)  ROHI  EVAL2890 

79  F0RHAT(3X, 'THE  INTERNAL  RATE  OF  RETURN  (IROR)  BASED  On  AFTER  TAX  NE  V  al  290  0 

1ET  CASH  FLOW  IS* ,F6.?, '  X'//)  EVA12910 

IF (RORI  .LE.  0.0)  WRITE (6,80)  EVA12920 

80  FORMAT (3X,  •  INTERNAL  RATE  OF  RETURN  IS  LESS  THAN  OR  EQUAL  TO  0. OX ' /EV AL2930 

A/)  EVAL2940 
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IF  CRORI  ,G£.  100.0)  WRITE(6,81)  EVAL2950 

81  F0RMAT(3X, 'INTERNAL  RATE  OF  RETURN  IS  GREATER  THAN  OR  EQUAL  TO  100EVAL2960 

8*'//)  EVAL2970 

MR  I TE (6.82)  PVIC  EVAL2980 

82  FORMAT! JX, ‘THE  PRESENT  NET  M0RTH/IN1 T I AL  INVESTMENT  RATIO  IS  EVAL2990 

1F7.2, IX, •*•//)  EVALSOOO 

MR  I TE (8,83)  EVAL3010 

83  FORMAT( • 1 *»•****• )  EVAL3020 

SUBROUTINE  SUB1 (HONG , ICFL , I TCF , L , NUNT )  EVAL3030 

DIMENSION  HDNG(4,20),ICFL(50,20),ITCF(50)  EVAL3040 


INTEGER  FLAG 

EVAl 3050 

FlAG«0 

EVAl 3060 

DO  86  J*1 ,20 

EVAL3070 

L*  J 

EVAL3080 

READ (5, 84) (HDNG(I, J) , 1*1 ,4) .FLAG 

E V AL  3090 

84 

FORMAT (4A4, 12) 

E V  AL  3 1 00 

RE AD (5, 85 )( ICFL ( I, J), 1*1, NUNT) 

EVAL31 10 

85 

FORMAT (1018) 

EVAL3120 

IF  (FLAG  ,EQ.  1)  GO  Tfl  87 

E  V  AL  31 30 

86 

CONTINUE 

EVAL3140 

87 

CONTINUE 

EVAL31S0 

LL*LM 

EVAL  3160 

DO  88  J*1,LL 

EVAL3170 

IF ( J  .EQ.  LL)  GO  TO  89 

EVAL3180 

DO  88  1*1, NUNT 

EVAL3190 

1TCF(I)*ITCF(I)+ICFL(I,J) 

EVAL 3200 

88 

CONTINUE 

EVAL3210 

89 

CONTINUE 

EVAL3220 

RETURN 

EVAL3230 

SUBROUTINE  DOLS(KK) 

EVAL3240 

IF  (KK  .EQ.  1)  WRITE (6,90) 

EVAL  3250 

IF(KK  .EQ.  2)  WRITE(6,91) 

EVAL3260 

IF (KK  .EQ.  3)  WRITE (6,92) 

EVAL3270 

1F(KK  .EQ.  4)  WRITE(6,9S) 

E  V  AL  3280 

IF  (KK  , EQ.  5)  MRITE(6,9<n 

EVAL  3290 

IF(KK  .EQ.  6)  WRITE (6,95) 

EVAL  3300 

IF(KK  ,EQ.  7)  wRI TE ( 6, 96 ) 

E  V AL  33 1 0 

I F  ( KK  .EQ.  8)  WRITE (6,97) 

EVAl 3320 

IF(KK  .EQ.  9)  MR I T E ( 6 , 98 ) 

EVAL  3330 

I F  ( KK  .EQ.  10)  wR I TE ( 6 , 99 ) 

EVAL3340 

90 

F0RMAT('*',20X, 'S') 

EVAL  3350 

91 

FORMAT ( ,20X,2('S*  »9X)) 

EVAL3360 

92 

FORMAT ( •♦',20X, J('**,9X)) 

EVAL3370 

93 

FORMAT (  •♦• ,20X,4( *S',9X)) 

EVAL3380 

94 

FORMAT ('♦',20X,5('J,,9X)) 

EVAL339C 

95 

FURMAT( »♦' ,20X,6( 'S' »9X) ) 

EVAl 3400 

96 

FORMAT  (•♦S?0X,7('S«,9X)) 

EVAL  34 1 0 

97 

FORMAT (•♦•,20X,8('S',9X)) 

EVAL  3420 

98 

FORMAT (•♦• ,20X,9( ,9X) ) 

EVAL 3430 

99 

FORMAT  I •♦•,20X,10(**,,9X)) 

EVAL3440 

RETURN 

EVAL  3450 

END 

EVAL  3460 

U.S.  Forest  Products  Laboratory.  U.S.  Forest  Products  Laboratory. 

EVALUE:  A  Computer  Program  for  Evaluating  Invest-  EVALUE:  A  Computer  Program  for  Evaluating  Invest¬ 

ments  in  Forest  Products  Industries,  by  Peter  J.  Ince  and  ments  in  Forest  Products  Industries,  by  Peter  J.  Inee  a 
Philip  H.  Steele,  Madison,  Wis.,  For.  Prod.  Lab.,  1980.  Philip  H.  Steele,  Madison,  Vis. ,  For.  Prod.  Lab.,  1980. 
12  p.  (USD A  For.  Serv.  Gen.  Tech.  Rep.  FPL-30).  12  p.  (USDA  For.  Serv.  Gen.  Tech.  Rep.  FPL-30). 
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